home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ CD AutoStart OptionsEx.xpl < prev    next >
Text File  |  2003-11-07  |  2KB  |  65 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="3"
  3. "COUNT"="1"
  4. "UIPATH"="System\AutoPlay\Audio CDs"
  5. "NAME"="Autostart Audio CD command"
  6. "VERSION"="1.47"
  7. "LANGUAGE"="VBScript"
  8. "DATA 1"="Programs (*.EXE)|*.exe"
  9. "TEXT 1"="Command"
  10. "DESCRIPTION 1"="If you have enabled the autostart of an Audio CD-ROM, Windows uses a program to play the CD."
  11. "DESCRIPTION 2"="Maybe you don't like the Windows CD-Player so you can enter your favorite player here."
  12. "DESCRIPTION 3"="The default value for this setting is "cdplayer.exe /play %1" or "C:\PROGRA~1\PLUS!\DeluxeCD\deluxecd.exe /play %1". 
  13. "DESCRIPTION 4"="On Windows 2000, the default value is "%SystemRoot%\system32\cdplayer.exe /play %1"."
  14. "DESCRIPTION 5"="If you are using WMP 7 or above, the command is "C:\Program Files\Windows Media Player\wmplayer.exe" /device:AudioCD "%L""."
  15. "DESCRIPTION 6"="This setting can also be used to prevent others from being your default CD Player. We suggest EasyCD, a freeware, highly customizable and skinnable CD player for Win9x/NT/2000 at http://linas.info/"
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"=" "
  20. "COMMENT 2"="Thanks to CptSiskoX for the help!"
  21.  
  22.  
  23.  
  24.  
  25. sFileType="HKCR\.cda\@" 'should be "cdafile"
  26.  
  27. sp1="HKCR\AudioCD\Shell\Play\Command\@" 'main entry!
  28. sp2="HKCR\cdafile\Shell\Play\Command\@" 'very strange, isn't it????
  29.  
  30. Sub Plugin_Initialize 
  31.  s=RegReadValue(sp1)
  32.  SetUIElement 1,s
  33. End Sub
  34.  
  35. Sub Plugin_CheckData(ElementIndex)
  36. End Sub
  37.  
  38. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  39.  s=GetUIElement(1)
  40.  
  41.  If Len(s)>0 then
  42.     'write the command
  43.     if GetWinVer=2 then 'on NT, write EXPAND_SZ 
  44.        Call RegWriteValue(sp1,s,4)
  45.        Call RegWriteValue(sp2,s,4)
  46.     else
  47.        Call RegWriteValue(sp1,s,1)
  48.        Call RegWriteValue(sp2,s,1)
  49.     end if
  50.  
  51.     'assign CDA to cdafile
  52.     Call RegWriteValue(sFileType,"cdafile",1)
  53.  
  54.     'should be fine now
  55.  else
  56.   MsgError "Please enter a command for playing Audio-CDs"
  57.  end if
  58.  
  59.  
  60.  
  61. End Sub
  62.  
  63. Sub Plugin_Terminate 
  64. End Sub
  65.